home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic2 / pro7 / declare.bas < prev    next >
Encoding:
BASIC Source File  |  1989-01-06  |  3.6 KB  |  77 lines
  1. '===========================================================================
  2. '                       Quick Reference:
  3. '
  4. 'Scrollx      attribute, #lines, TR, LC, BR, RC        Scroll
  5. 'GScroll8     TR, LC, BR, RC                           Scroll in graphics
  6. '
  7. 'SaveW        segment, TR, LC, BR, RC                  Save window
  8. 'OpenW        Border, Attr, Segment, TR, LC, BR, RC    Save & Blank
  9. 'CloseW       Segment, TR, LC, BR, RC                  Restore window
  10. 'CloseLastW                                            Restore last window
  11. 'FillW        offset, varptr(x$(L )                    Print strings in window
  12.  
  13. 'SetViewPage page                                      Set active page
  14. 'SetViewW    page, TR, LC, BR, RC                      Define screen size
  15.  
  16. 'DefBorder    x$                                       Create a border
  17. 'Int3                                                  Call int 3
  18. '
  19. 'ReadScreen   a$, row, column                          Read from the screen
  20. 'ChangeAttr   attribute                                Set attributes
  21. 'SwapAttr                                              Reverse attributes
  22. '
  23. 'Printt,PrintW   a$,attr, row%, col%
  24. 'Prnt, PrntW     a$
  25. 'Kolor           foreground, background
  26. 'Lokate          RR, NN
  27.  
  28. '============================================================================
  29. DECLARE SUB GScrollL8 (BYVAL TR%, BYVAL LC%, BYVAL BR%, BYVAL RC%)
  30. DECLARE SUB scrollu (BYVAL Attr%, BYVAL lines%, BYVAL TR%, BYVAL LC%, BYVAL BR%, BYVAL RC%)
  31. DECLARE SUB scrolld (BYVAL Attr%, BYVAL lines%, BYVAL TR%, BYVAL LC%, BYVAL BR%, BYVAL RC%)
  32. DECLARE SUB scrollL (BYVAL Attr%, BYVAL cols%, BYVAL TR%, BYVAL LC%, BYVAL BR%, BYVAL RC%)
  33. DECLARE SUB scrollr (BYVAL Attr%, BYVAL cols%, BYVAL TR%, BYVAL LC%, BYVAL BR%, BYVAL RC%)
  34.  
  35. DECLARE SUB OpenW (BYVAL border%, BYVAL Attr%, BYVAL segment%, BYVAL TR%, BYVAL LC%, BYVAL BR%, BYVAL RC%)
  36. DECLARE SUB closew (BYVAL segment%, BYVAL TR%, BYVAL LC%, BYVAL BR%, BYVAL RC%)
  37. DECLARE SUB saveW (BYVAL segment%, BYVAL TR%, BYVAL LC%, BYVAL BR%, BYVAL RC%)
  38. DECLARE SUB FillW (BYVAL offset%, BYVAL stringAddress%)
  39. DECLARE SUB CloseLastW ()
  40.  
  41. DECLARE SUB int3
  42. DECLARE SUB SetViewPage (BYVAL p%)
  43. DECLARE SUB SetViewW (BYVAL page%, BYVAL TR%, BYVAL LC%, BYVAL BR%, BYVAL RC%)
  44. DECLARE SUB defborder (x$)
  45. DECLARE SUB ReadScreen (a$, BYVAL r%, BYVAL c%)
  46. DECLARE SUB SwapAttr ()
  47. DECLARE SUB ChangeAttr (BYVAL Attr%)
  48. DECLARE SUB CGA ()
  49. DECLARE SUB Monochrome ()
  50. DECLARE SUB InitW (RR%, CC%)
  51. DECLARE SUB DebugW ()
  52.  
  53. DECLARE SUB Lokate (BYVAL r%, BYVAL c%)
  54. DECLARE SUB Kolor (BYVAL fore%, BYVAL back%)
  55. DECLARE SUB Printt (a$, BYVAL Attr%, r%, c%)
  56. DECLARE SUB Prnt (a$)
  57. DECLARE SUB PrintW (a$, BYVAL Attr%, r%, c%)
  58. DECLARE SUB PrntW (a$)
  59. DECLARE SUB PrintMain (a$, BYVAL Attr%, r%, c%, BYVAL r%, BYVAL c%, BYVAL r%, BYVAL c%)
  60. DECLARE SUB HaltPrintt (a$, BYVAL Attr%, r%, c%)
  61. DECLARE SUB HaltPrintW (a$, BYVAL Attr%, r%, c%)
  62. DECLARE SUB HaltPrintMain (a$, BYVAL Attr%, r%, c%, BYVAL r%, BYVAL c%, BYVAL r%, BYVAL c%)
  63.  
  64. DECLARE SUB PrintI (BYVAL i%, BYVAL Attr%, BYVAL r%, BYVAL c%)
  65. DECLARE SUB PrintS (BYVAL i!, BYVAL Attr%, BYVAL r%, BYVAL c%)
  66. DECLARE SUB PrintH (BYVAL i%, BYVAL Attr%, BYVAL r%, BYVAL c%)
  67. DECLARE SUB PrintwI (BYVAL i%, BYVAL Attr%, BYVAL r%, BYVAL c%)
  68. DECLARE SUB PrintwS (BYVAL i!, BYVAL Attr%, BYVAL r%, BYVAL c%)
  69. DECLARE SUB PrintwH (BYVAL i%, BYVAL Attr%, BYVAL r%, BYVAL c%)
  70.  
  71.  
  72. '============================================================================
  73. COMMON SHARED RR AS INTEGER, CC AS INTEGER
  74. InitW RR, CC
  75. '============================================================================
  76.  
  77.